<html><head>
<title>FilterForager V1.0</title>
<meta http-equiv="x-ua-compatible" content="ie=9">
<HTA:APPLICATION
	APPLICATIONNAME="FilterForge" ID="FILTERFORGEWIN" BORDER="thick"
	BORDERSTYLE="normal" CAPTION="yes" CONTEXTMENU="no"
	INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"
	NAVIGABLE="yes"
	ICON="NOTEPAD.EXE" SCROLL="yes" SCROLLFLAT="no"
	SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"
	SYSMENU="yes" VERSION="1.0" WINDOWSTATE="normal">
	
<link href="css/ui.css" type="text/css" rel="stylesheet" />
<link href="css/body.css" type="text/css" rel="stylesheet" />
<script src="webService/connectionObject.vbs" language="VBScript" type="text/VBScript"></script>
<script src="webService/parseObject.vbs" language="VBScript" type="text/VBScript"></script>
<script src="webService/headerObject.vbs" language="VBScript" type="text/VBScript"></script>
<script src="webService/cookiesObject.vbs" language="VBScript" type="text/VBScript"></script>
<script src="webService/base64Object.vbs" language="VBScript" type="text/VBScript"></script>
<script src="webService/filterForgeWebServiceObject.vbs" language="VBScript" type="text/VBScript"></script>
<script src="jQuery/jquery-1.7.1.min.js" type="text/javascript"></script>
<script src="console/jquery-ui-1.8.18.custom.min.js" type="text/javascript"></script>
<script src="console/init.js" type="text/javascript"></script>

</head>

<body>

<p><a href="#" id="dialog_link" class="ui-state-default ui-corner-all"><span class="ui-icon ui-icon-newwin"></span>Open work console</a></p>
<div id="dialog" title="FilterForager V1.0 console">
FilterForager V1.0<br>
Console enabled.<br>
</div>
<div id=gadgetContent></div>
<script Language="VBScript">

set con=(new connectionObject)("filterforge")
set FFWebService=(new filterForgeWebServiceObject)()


write "Get a filter:"
rawPage=FFWebService.getFilter(637,1)
rawPage="<pre>" & replace(replace(rawPage,"<" , "&lt;"),">", "&gt;") & "</pre>"
write rawPage & "<hr>"



write "List all filter numbers and versions:"
set filterList=FFWebService.getFilterList()
write "Filters: " & filterList.count & "<br>"
html=""
for each key in filterList.keys
	html = html & key & " - " & filterList.item(key) & "<br>"
next
write html & "<br>"



Sub write(data)
	writeData= data & "<br>"
    gadgetContent.innerHTML=gadgetContent.innerHTML+writeData
End Sub


</script>




</body></html>